home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / miscstat.arc / LINEARCC.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-10-07  |  640 b   |  30 lines
  1. 1  'LINEAR Correlation Coefficient
  2. 2  KEY OFF:SCREEN 0,1,0:WIDTH 40:COLOR 15,1,9:CLS
  3. 10   PRINT "LINEAR CORRELATION COEFFICIENT"
  4. 20   PRINT 
  5. 30   PRINT "NUMBER OF POINTS";
  6. 40   INPUT N:IF N=0 THEN 220
  7. 50  J = 0
  8. 60  K = 0
  9. 70  L = 0
  10. 80  M = 0
  11. 90  R = 0
  12. 100   FOR I = 1 TO N
  13. 110   PRINT "X,Y OF POINT";I;
  14. 120   INPUT X,Y
  15. 130  J = J + X
  16. 140  K = K + Y
  17. 150  L = L + X ^ 2
  18. 160  M = M + Y ^ 2
  19. 170  R = R + X * Y
  20. 180   NEXT I
  21. 190  R2 = (N * R - J * K) /  SQR ((N * L - J ^ 2) * (N * M - K ^ 2))
  22. 200   PRINT 
  23. 210   PRINT "COEFFICIENT OF CORRELATION: ";R2
  24. 220  PRINT:LOCATE 24,1:PRINT"PRESS <SPACE> TO RUN AGAIN";
  25. 230  LOCATE 25,1:PRINT"PRESS <ESC> TO EXIT";
  26. 240  K$=INKEY$:IF K$="" THEN 240
  27. 250  IF K$=" " THEN RUN
  28. 260  IF K$<>CHR$(27) THEN 220
  29. 10000  STOP
  30.